| Filename | (eval 83)[/usr/share/perl5/CGI.pm:932] |
| Statements | Executed 4 statements in 6µs |
| Eval Invoked At | /usr/share/perl5/CGI.pm line 932 |
| Sibling evals | 1, 2, 3, 4, 5, 6 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 7µs | 8µs | CGI::cache |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 8µs (7+2) within CGI::cache which was called:
# once (7µs+2µs) by CGI::header at line 895 of CGI.pm | ||||
| 2 | 1 | 1µs | 1 | 2µs | my($self,$new_value) = self_or_default(@_); # spent 2µs making 1 call to CGI::self_or_default |
| 3 | 1 | 300ns | $new_value = '' unless $new_value; | ||
| 4 | 1 | 100ns | if ($new_value ne '') { | ||
| 5 | $self->{'cache'} = $new_value; | ||||
| 6 | } | ||||
| 7 | 1 | 4µs | return $self->{'cache'}; | ||
| 8 | } | ||||
| 9 | |||||
| 10 | ; |